Page 1

---
title: "Indian CoronaVirus Status Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(magrittr)
```

Page 1 
===================================== 
Row
-----------------------------------------------------------------------
### Chart A{.value-box}

```{r}
valueBox(value = paste(format(data_set2$Confirmed[1], big.mark = ","), "", sep = " "), 
         caption = "Total Confirmed Cases", 
         icon = "fas fa-user-md", 
         color = confirmed_color)
```

### Chart A1{.value-box}

```{r}
valueBox(value = paste(format(data_set2$Active[1], big.mark = ","),"","(",
               round( (data_set2$Active[1]/data_set2$Confirmed[1])*100, 1), "%)", sep = " "), 
         caption = "Active Cases", icon = "fas fa-ambulance", 
         color = active_color)
```

### Chart A2{.value-box}

```{r}

valueBox(value = paste(format(data_set2$Recovered[1] , big.mark = ","), " (",
                       round((data_set2$Recovered[1]/data_set2$Confirmed[1])*100, 1), 
                       "%)", sep = ""), 
         caption = "Recovered Cases", icon = "fas fa-heartbeat", 
         color = recovered_color)
```

### death {.value-box}

```{r}

valueBox(value = paste(format(data_set2$Deaths[1] , big.mark = ","), " (",
                       round((data_set2$Deaths[1]/data_set2$Confirmed[1])*100, 1), 
                       "%)", sep = ""),
         caption = "Death Cases", 
         icon = "fas fa-frown", 
         color = death_color)
```

Row {.tabset}
-----------------------------------------------------------------------


### Cases Distribution by Type (`r  max(data_state_daily_r$Date_YMD)`)

```{r}

plotly::plot_ly(
  data = data_set_tree %>% dplyr::filter(type == "Confirmed" ),
  type= "treemap",
  values = ~total,
  labels= ~ State,
  parents=  ~type,
  domain = list(column=0),
  name = "Confirmed Cases",
  textinfo="label+value+percent parent",
  hovertemplate = "State: %{label}
Confirmed Cases: %{value}")%>%
  plotly::add_trace(
    data = data_set_tree %>% dplyr::filter(type == "Active"),
    type= "treemap",
    values = ~total,
    labels= ~ State,
    parents=  ~type,
    domain = list(column=1),
    name = "Active",
    textinfo="label+value+percent parent",
    hovertemplate = "State: %{label}
Active Cases: %{value}")%>%
  # plotly::layout(grid=list(columns=4, rows=1))
  plotly::add_trace(
    data = data_set_tree %>% dplyr::filter(type == "Recovered"),
    type= "treemap",
    values = ~total,
    labels= ~ State,
    parents=  ~type,
    domain = list(column=2),
    name = "Recovered",
    textinfo="label+value+percent parent",
    hovertemplate = "State: %{label}
Recovered Cases: %{value}")%>%
  plotly::add_trace(
    data = data_set_tree %>% dplyr::filter(type == "Deaths"),
    type= "treemap",
    values = ~total,
    labels= ~ State,
    parents=  ~type,
    domain = list(column=3),
    name = "Death",
    textinfo="label+value+percent parent",
    hovertemplate = "State: %{label}
Death Count: %{value}")%>%

  plotly::layout(grid=list(columns=4, rows=1))
```

### Active Cases

```{r}
library(highcharter)
# Data <- read.csv("https://api.covid19india.org/csv/latest/states.csv",stringsAsFactors =FALSE)%>%
#             dplyr::mutate(
#                      State = trimws(State),
#                      State = factor(State, levels = unique(State))
# #                )
# data_State <- Data %>% 
#   dplyr::group_by(State)
# %>%
#   dplyr::summarise(total = sum(Confirmed, na.rm = TRUE),
#                    .groups = "drop")
Data <- subset(Data, type == "Active")
hcmap("https://code.highcharts.com/mapdata/countries/in/in-all.js",
      data = Data,
      name="Active Case",
      value = "total",
      joinBy = c("name","State"))%>%
  hc_title(text = "India")
```

### Daily Cases
```{r}
library(plotly)
library(ggplot2)

fig <- plot_ly(
  type = "scatter",
  x = data_state_daily_c$Date_YMD, 
  y = data_state_daily_c$TT,
  name = 'Confirmed Cases',
  mode = "markers",
  hovertemplate = "Confirmed Cases: %{y}"
)%>%
  plotly::add_trace(
  type = "scatter",
  y = data_state_daily_r$TT,
  name = 'Recovered Cases',
  mode = "markers",
  hovertemplate = "Recovered Cases: %{y}")%>%
  plotly::add_trace(
  type = "scatter",
  y = data_state_daily_d$TT,
  name = 'Death Cases',
  mode = "markers",
  hovertemplate = "Death Cases: %{y}")
 fig %>%
  plotly::layout(
    title = "",
    yaxis = list(title = "Number of Cases"),
    xaxis = list(
      title="Date",
      type = "date",
      range=c('2020-03-14', max(data_state_daily_r$Date_YMD))
      # hovermode = "compare"
    ),
    hovermode = "x"
  )
```